home *** CD-ROM | disk | FTP | other *** search
/ PC Answers 1998 January / PC Answers Issue 49 Cover CD January 1998.iso / Apps / Director / DATA.Z / Keyboard Lingo.dir / Scripts_31_Key Handlers for Scene 3.ls < prev    next >
Encoding:
Text File  |  1997-05-10  |  1008 b   |  28 lines
  1. on myKey03
  2.   global gKeyChannel
  3.   set myKey to the key
  4.   set the member of sprite gKeyChannel to member "downstate" of castLib "internal"
  5.   put myKey into field "pictkey" of castLib "text"
  6.   if the shiftDown = 1 then
  7.     set the member of sprite 10 to member "smallModDownKey" of castLib "internal"
  8.   else
  9.     set the member of sprite 10 to member "smallModUpKey" of castLib "internal"
  10.   end if
  11.   if the commandDown = 1 then
  12.     set the member of sprite 11 to member "modDownKey" of castLib "internal"
  13.   else
  14.     set the member of sprite 11 to member "modUpKey" of castLib "internal"
  15.   end if
  16.   if the controlDown = 1 then
  17.     set the member of sprite 12 to member "modDownKey" of castLib "internal"
  18.   else
  19.     set the member of sprite 12 to member "modUpKey" of castLib "internal"
  20.   end if
  21.   if the optionDown = 1 then
  22.     set the member of sprite 13 to member "modDownKey" of castLib "internal"
  23.   else
  24.     set the member of sprite 13 to member "modUpKey" of castLib "internal"
  25.   end if
  26.   updateStage()
  27. end
  28.